home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 001-025 / disk_013 / terminal.bas < prev    next >
BASIC Source File  |  1992-05-06  |  351b  |  21 lines
  1. 5 'maybe this terminal prog works. off of Delphi 11/10/85.
  2.  
  3. 10 open "O",#1,"ser:": print #1, " " : close #1
  4.  
  5. 20 get a$: if a$="" then 60
  6.  
  7. 40 ?a$;: if a$=chr$(13) then ?
  8.  
  9. 50 gosub 70
  10.  
  11. 60 gosub 90:goto 20
  12.  
  13. 70 td=asc(a$): poke_w &hdff030,td+256: return
  14.  
  15. 90 a=peek_w (&hdff018) and 127: if a=b then return
  16.  
  17. 100 ?chr$(a);: if a=13 then ?
  18.  
  19. 110 b=a: return
  20.  
  21.